|
700
|
Is it possible to colour a particular column for specified values
local var_Columns as IColumns
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("int(%1) in (3,4,5)",nil)
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(0),1] := 1
var_Items:[CellCaption,var_Items:AddItem(2),1] := 3
var_Items:[CellCaption,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
699
|
Is it possible to colour a particular column
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exCellBackColor] := 255
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(0),1] := 1
var_Items:[CellCaption,var_Items:AddItem(2),1] := 3
var_Items:[CellCaption,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
698
|
How do i get all the children items that are under a certain parent Item handle
local var_Items,var_Items1 as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("P")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items1 := oDCOCX_Exontrol1:Items
hChild := var_Items1:[ItemChild,var_Items1:FirstVisibleItem]
OutputDebugString(String2Psz( AsString(var_Items1:[CellCaption,hChild,0]) ))
OutputDebugString(String2Psz( AsString(var_Items1:[CellCaption,var_Items1:[NextSiblingItem,hChild],0]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
697
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 3
var_Chart:OverviewVisible := exOverviewShowAll
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:[Label,exYear] := "<%yy%><|><%yyyy%>"
var_Chart:[Label,exHalfYear] := ""
var_Chart:[Label,exQuarterYear] := ""
var_Chart:[Label,exMonth] := "<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>"
var_Chart:[Label,exThirdMonth] := ""
var_Chart:[Label,exWeek] := "<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096"
var_Chart:[Label,exHour] := "<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
var_Chart:[Label,exMinute] := "<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[Label,exSecond] := "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart:[LabelToolTip,exYear] := "<%yyyy%>"
var_Chart:[LabelToolTip,exHalfYear] := ""
var_Chart:[LabelToolTip,exQuarterYear] := ""
var_Chart:[LabelToolTip,exMonth] := "<%m%>/<%yyyy%>"
var_Chart:[LabelToolTip,exThirdMonth] := ""
var_Chart:[LabelToolTip,exWeek] := "<%m%>/<%d%>/<%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%m%>/<%d%>/<%yyyy%>"
var_Chart:[LabelToolTip,exHour] := "<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>"
var_Chart:[LabelToolTip,exMinute] := "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[LabelToolTip,exSecond] := "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
696
|
How can I get the caption of focused item
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(var_Items:FocusItem) ))
OutputDebugString(String2Psz( "Caption" ))
OutputDebugString(String2Psz( AsString(var_Items:[CellCaption,var_Items:FocusItem,0]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
695
|
How can I get the caption of selected item
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(var_Items:[SelectedItem,0]) ))
OutputDebugString(String2Psz( "Caption" ))
OutputDebugString(String2Psz( AsString(var_Items:[CellCaption,var_Items:[SelectedItem,0],0]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
694
|
How can I highligth the item from the cursor as it moves
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
var_Items := oDCOCX_Exontrol1:Items
var_Items:ClearItemBackColor(oDCOCX_Exontrol1:[Background,0x200 | exHSRight | exListOLEDropPosition])
var_Items:[ItemBackColor,h] := RGB(240,250,240)
oDCOCX_Exontrol1:[Background,0x200 | exHSRight | exListOLEDropPosition] := h
oDCOCX_Exontrol1:EndUpdate()
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:SelBackColor := RGB(240,250,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:ShowFocusRect := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:SelBackColor := RGB(240,250,240)
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
693
|
How can I get the item from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local h as USUAL
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(h) ))
OutputDebugString(String2Psz( "Index" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemToIndex,h]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
692
|
How can I get the column from the cursor, not only in the header
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ColumnFromPoint,-1,0]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("P1")
oDCOCX_Exontrol1:Columns:Add("P2")
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:[CellCaption,h,1] := "R2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Cell 1.1"),1] := "Cell 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Cell 2.1"),1] := "Cell 2.2"
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
691
|
How can I get the column from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ColumnFromPoint,-1,-1]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:Columns:Add("P1")
oDCOCX_Exontrol1:Columns:Add("P2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:[CellCaption,h,1] := "R2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Cell 1.1"),1] := "Cell 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Cell 2.1"),1] := "Cell 2.2"
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
690
|
How can I get the cell's caption from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local h as USUAL
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[CellCaption,h,c]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
689
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesVSolid | exGridLinesHDot4
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
oDCOCX_Exontrol1:Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:[CellCaption,h,1] := "SubItem 1.2"
var_Items:[CellCaption,h,2] := "SubItem 1.3"
h := var_Items:AddItem("Item 2")
var_Items:[CellCaption,h,1] := "SubItem 2.2"
var_Items:[CellCaption,h,2] := "SubItem 2.3"
oDCOCX_Exontrol1:EndUpdate()
|
|
688
|
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(220,220,220)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesBehind
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,1]
var_Level:DrawGridLines := true
var_Level:GridLineColor := RGB(220,220,220)
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternSolid
var_Bar:Height := 14
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
687
|
Is it possible to change the style for the vertical grid lines, in the chart area only
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesDash
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesDash
var_Chart:LevelCount := 2
var_Chart:[Level,1]:DrawGridLines := true
var_Level := var_Chart:[Level,0]
var_Level:GridLineColor := RGB(255,0,0)
var_Level:GridLineStyle := exGridLinesVSolid
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
686
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesSolid
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesSolid
var_Chart:LevelCount := 2
var_Chart:[Level,1]:DrawGridLines := true
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
685
|
How can I show the grid lines for the chart and list area
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:LevelCount := 2
var_Chart:[Level,1]:DrawGridLines := true
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
|
|
684
|
How can I get the link from the point
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[LinkFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "L2"
oDCOCX_Exontrol1:EndUpdate()
|
|
683
|
How can I get the bar from the point
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
oDCOCX_Exontrol1:EndUpdate()
|
|
682
|
How can I get the level from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[LevelFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20100625")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 4
|
|
681
|
I display numbers in my chart, but the AddBar requires a date how can I add a bar
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:FirstVisibleDate := 0
var_Chart:ToolTip := ""
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%i%>"
var_Level:ToolTip := ""
var_Chart:UnitWidth := 24
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",2,4,nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",6,10,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
680
|
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
METHOD OCX_Exontrol1DateChange() CLASS MainDialog
// DateChange event - Occurs when the first visible date is changed.
oDCOCX_Exontrol1:Chart:FirstVisibleDate := 0
oDCOCX_Exontrol1:[ScrollPartEnable,exHChartScroll,exLeftBPart] := false
RETURN NIL
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:FirstVisibleDate := 0
var_Chart:ToolTip := ""
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%i%>"
var_Level:ToolTip := "<%i%>"
var_Chart:UnitWidth := 24
oDCOCX_Exontrol1:EndUpdate()
|
|
679
|
How can I display numbers in the chart's header instead dates
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:FirstVisibleDate := 0
var_Chart:ToolTip := ""
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%i%>"
var_Level:ToolTip := ""
var_Chart:UnitWidth := 24
oDCOCX_Exontrol1:EndUpdate()
|
|
678
|
How can I determine that a certain bar is the topmost
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001227")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Bars A B")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"B",nil)
var_Items:[ItemBar,h,"B",exBarColor] := 255
h := var_Items:AddItem("Bars B A")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"B",nil)
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"A",nil)
var_Items:[ItemBar,h,"A",exBarColor] := 255
|
|
677
|
Is there any automatic way to change a property for all bars in the chart
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,0,"<*>",exBarColor] := 255
|
|
676
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Default")
var_Items:[ItemBackColor,hC] := 0x1000000
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Light Green")
var_Items:[ItemBackColor,hC] := 0x100ff00
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Dark Green")
var_Items:[ItemBackColor,hC] := 0x1007f00
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Magenta")
var_Items:[ItemBackColor,hC] := 0x1ff7fff
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Yellow")
var_Items:[ItemBackColor,hC] := 0x17fffff
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
var_Items:[ExpandItem,h] := true
|
|
675
|
How can I remove all bars from the chart
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:ClearBars(0)
|
|
674
|
How can I change the color for all bars with a specified key
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,0,"K1",exBarColor] := 255
|
|
673
|
Is there any automatic way to change a property for all bars with a specified key
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,0,"K1",exBarColor] := 255
|
|
672
|
How can I remove all bars with specified key
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:RemoveBar(0,"K1")
|
|
671
|
Is there any option to show gradient bars without using EBN technology
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(255,0,0)
var_Bar:StartColor := RGB(0,255,0)
var_Bar:EndColor := RGB(255,255,0)
var_Bar:Pattern := exPatternBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
|
|
670
|
How can I disable the control's splitter so the user can't resize the list area
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter | exResizeChart
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 60
|
|
669
|
How can I disable the control's splitter so the user can't resize the chart area
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 60
|
|
668
|
How can I define a bar that shows two colors, one up and one down, without using skin or EBN files
local var_Bar,var_Bar1 as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:Add("A")
var_Bar:Color := RGB(255,0,0)
var_Bar:Shape := exShapeSolidUp
var_Bar:Pattern := exPatternSolid
var_Bar1 := oDCOCX_Exontrol1:Chart:Bars:Add("B")
var_Bar1:Color := RGB(128,0,0)
var_Bar1:Shape := exShapeSolidDown
var_Bar1:Pattern := exPatternSolid
oDCOCX_Exontrol1:Chart:Bars:Add("A%B"):Shortcut := "AB"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"AB",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPercent] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
667
|
Does your control support RightToLeft property for RTL languages or right to left
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:RightToLeft := true
oDCOCX_Exontrol1:EndUpdate()
|
|
666
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Columns:Add("C4")
var_Columns:Add("C5")
var_Columns:Add("C6")
var_Columns:Add("C7")
var_Columns:Add("C8")
oDCOCX_Exontrol1:RightToLeft := true
oDCOCX_Exontrol1:EndUpdate()
|
|
665
|
Can I display the cell's check box after the text
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:[Def,exCellDrawPartsOrder] := "caption,check"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 1"),0] := true
var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 2"),0] := true
|
|
664
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:[Def,exCellDrawPartsOrder] := "caption,check,icon,icons,picture"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Text")
var_Items:[CellImage,h,0] := 1
var_Items:[CellHasCheckBox,h,0] := true
|
|
663
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:[Def,exCellDrawPartsOrder] := "caption,icon,check,icons,picture"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Text")
var_Items:[CellImage,h,0] := 1
|
|
662
|
Is there any option to print the columns section on each page
local var_Print as IExPrint
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Col 1")
oDCOCX_Exontrol1:Columns:Add("Col 2")
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Col 1")
var_Items:[CellCaption,h1,1] := "Col 2"
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Col 1")
var_Items:[CellCaption,h2,1] := "Col 2"
var_Items:AddBar(h2,"Task",SToD("20010205"),SToD("20010207"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "ColumnsOnEveryPage=-2"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
661
|
Is there any option to print the columns section on each page
local var_Print as IExPrint
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010205"),SToD("20010207"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "ColumnsOnEveryPage=1"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
660
|
How do I print the control's content
local var_Print as IExPrint
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
659
|
How can I display the column using currency format and enlarge the font for certain values
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("9.94")
var_Items:AddItem("11.94")
var_Items:AddItem("1000")
|
|
658
|
How can I highlight only parts of the cells
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
657
|
How can I get the number of occurrences of a specified string in the cell
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("occurrences")}
var_Column:ComputedField := "lower(%0) count 'o'"
var_Column:FormatColumn := "'contains ' + value + ' of \'o\' chars'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1 oooof the root")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
656
|
How can I display dates in my format
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010121"))
var_Items:AddItem(SToD("20020222"))
var_Items:AddItem(SToD("20030313"))
var_Items:AddItem(SToD("20040424"))
|
|
655
|
How can I display dates in short format
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:FormatColumn := "shortdate(value)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101"))
var_Items:AddItem(SToD("20020202"))
var_Items:AddItem(SToD("20030303"))
var_Items:AddItem(SToD("20040404"))
|
|
654
|
How can I display dates in long format
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:FormatColumn := "longdate(value)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101"))
var_Items:AddItem(SToD("20020202"))
var_Items:AddItem(SToD("20030303"))
var_Items:AddItem(SToD("20040404"))
|
|
653
|
How can I display only the right part of the cell
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Right")}
var_Column:ComputedField := "%0 right 2"
var_Column:FormatColumn := "'" + CHR(34) + "' + value + '" + CHR(34) + "'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
652
|
How can I display only the left part of the cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
IColumn{oDCOCX_Exontrol1:Columns:Add("Left")}:ComputedField := "%0 left 2"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
651
|
How can I display true or false instead 0 and -1
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Boolean")}:FormatColumn := "value != 0 ? 'true' : 'false'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(true)
var_Items:AddItem(false)
var_Items:AddItem(true)
var_Items:AddItem(0)
var_Items:AddItem(1)
|
|
650
|
How can I display icons or images instead numbers
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Icons")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "'The cell displays the icon <img>'+value+'</img> instead ' + value"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1)
var_Items:AddItem(2)
var_Items:AddItem(3)
|
|
649
|
How can I display the column using currency
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:FormatColumn := "currency(dbl(value))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("0")
var_Items:AddItem(5)
var_Items:AddItem("10000.99")
|
|
648
|
How can I display the currency only for not empty cells
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:ComputedField := "len(%0) ? currency(dbl(%0)) : ''"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("0")
var_Items:[ItemBackColor,var_Items:AddItem(nil)] := RGB(255,128,128)
var_Items:AddItem("10000.99")
|
|
647
|
Is there a function to display the number of days between two date including the number of hours
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Width := 32
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellCaption,h,1] := SToD("20010114")
h := var_Items:AddItem(SToD("20020222 12:00:00"))
var_Items:[CellCaption,h,1] := SToD("20020314 13:00:00")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellCaption,h,1] := SToD("20030411 11:00:00")
|
|
646
|
Is there a function to display the number of days between two date including the number of hours
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Start")
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "" + CHR(34) + "D " + CHR(34) + " + int(date(%1)-date(%0)) + " + CHR(34) + " H " + CHR(34) + " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellCaption,h,1] := SToD("20010114 23:00:00")
h := var_Items:AddItem(SToD("20020222 12:00:00"))
var_Items:[CellCaption,h,1] := SToD("20020314 13:00:00")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellCaption,h,1] := SToD("20030411 11:00:00")
|
|
645
|
How can I display the number of days between two dates
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Start")
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "(date(%1)-date(%0)) + ' days'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellCaption,h,1] := SToD("20010114")
h := var_Items:AddItem(SToD("20020222"))
var_Items:[CellCaption,h,1] := SToD("20020314")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellCaption,h,1] := SToD("20030411")
|
|
644
|
How can I get second part of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Second")}:ComputedField := "sec(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:10:00"))
var_Items:AddItem(SToD("20020222 11:01:22"))
var_Items:AddItem(SToD("20030313 12:23:01"))
var_Items:AddItem(SToD("20040414 13:11:59"))
|
|
643
|
How can I get minute part of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Minute")}:ComputedField := "min(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:10:00"))
var_Items:AddItem(SToD("20020222 11:01:00"))
var_Items:AddItem(SToD("20030313 12:23:00"))
var_Items:AddItem(SToD("20040414 13:11:00"))
|
|
642
|
How can I check the hour part only so I know it was afternoon
local var_Items as IItems
oDCOCX_Exontrol1:ConditionalFormats:Add("hour(%0)>=12",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Hour")}:ComputedField := "hour(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
641
|
What about a function to get the day in the week, or days since Sunday
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("WeekDay")}:ComputedField := "weekday(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
640
|
Is there any function to get the day of the year or number of days since January 1st
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Day since January 1st")}:ComputedField := "yearday(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
639
|
How can I display only the day of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Day")}:ComputedField := "day(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
638
|
How can I display only the month of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Month")}:ComputedField := "month(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
637
|
How can I get only the year part from a date expression
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Year")}:ComputedField := "year(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
636
|
Can I convert the expression to date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:ComputedField := "date(dbl(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("30000.99")
var_Items:AddItem("3561.23")
var_Items:AddItem("1232.34")
|
|
635
|
Can I convert the expression to a number, double or float
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Number + 2")}:ComputedField := "dbl(%0)+2"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
634
|
How can I display dates in long format
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("LongFormat")}:ComputedField := "longdate(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
633
|
How can I display dates in short format
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("ShortFormat")}:ComputedField := "shortdate(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
632
|
How can I display the time only of a date expression
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Time")}:ComputedField := "'time is:' + time(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
631
|
Is there any function to display currencies, or money formatted as in the control panel
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:ComputedField := "currency(dbl(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("10000.99")
|
|
630
|
How can I convert the expression to a string so I can look into the date string expression for month's name
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Str")}:ComputedField := "str(%0) + ' AA'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
629
|
Can I display the absolute value or positive part of the number
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Abs")}:ComputedField := "abs(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
628
|
Is there any function to get largest number with no fraction part that is not greater than the value
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Floor")}:ComputedField := "floor(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
627
|
Is there any function to round the values base on the .5 value
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Round")}:ComputedField := "round(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
626
|
How can I get or display the integer part of the cell
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Int")}:ComputedField := "int(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
625
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("")}:ComputedField := "proper(%0)"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("root")
var_Items:InsertItem(h,nil,"child child")
var_Items:InsertItem(h,nil,"child child")
var_Items:InsertItem(h,nil,"child child")
var_Items:[ExpandItem,h] := true
|
|
624
|
Is there any option to display cells in uppercase
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("")}:ComputedField := "upper(%0)"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
623
|
Is there any option to display cells in lowercase
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("")}:ComputedField := "lower(%0)"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
622
|
How can I mark the cells that has a specified type, ie strings only
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("type(%0) = 8",nil):ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,2)
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
621
|
How can I bold the items that contains data or those who displays empty strings
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("not len(%1)=0",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
hC := var_Items:InsertItem(h,nil,"Child 2")
var_Items:[CellCaption,hC,1] := "1"
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
620
|
Can I change the background color for items or cells that contains a specified string
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 contains 'hi'",nil):BackColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
619
|
Is there any option to change the fore color for cells or items that ends with a specified string
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 endwith '22'",nil):ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 1.22")
var_Items:InsertItem(h,nil,"Child 2.22")
var_Items:[ExpandItem,h] := true
|
|
618
|
How can I highlight the cells or items that starts with a specified string
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 startwith 'C'",nil):Underline := true
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
617
|
How can I change the background color or the visual appearance using ebn for a particular column
local var_Columns as IColumns
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 16777216
IColumn{var_Columns:Add("Column 3")}:[Def,exHeaderBackColor] := 16777471
var_Columns:Add("Column 4")
|
|
616
|
How can I change the background color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 8439039
var_Columns:Add("Column 3")
|
|
615
|
Is it possible to define level in terms of just increasing numbers (not a Date)
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 32
var_Chart:UnitWidth := 32
var_Chart:FirstVisibleDate := 1000
var_Chart:[Level,0]:Label := "<%i%>"
|
|
614
|
How can I hide the non-working units ( days or hours )
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%dddd%>"
var_Level:Alignment := CenterAlignment
var_Chart:[Level,1]:Label := 65536
var_Chart:NonworkingHours := 16773375
var_Chart:ShowNonworkingUnits := false
oDCOCX_Exontrol1:EndUpdate()
|
|
613
|
Is there a way to have the display show the word "Noon" instead "12:00 PM" in the chart's header/levels
local var_Chart as IChart
local var_Level,var_Level1,var_Level2 as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20010101 10:00:00")
var_Chart:LevelCount := 3
var_Level := var_Chart:[Level,0]
var_Level:Label := "<b><%mmm%> <%d%>, <%yyyy%></b>"
var_Level:Alignment := CenterAlignment
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%h%>:00 <%AM/PM%>"
var_Level1:Alignment := CenterAlignment
var_Level1:Unit := exHour
var_Level1:DrawTickLines := true
var_Level1:DrawGridLines := true
var_Level1:[ReplaceLabel,"12:00 PM"] := "<fgcolor=0000FF><b>Noon</b></fgcolor>"
var_Level2 := var_Chart:[Level,2]
var_Level2:Label := ""
var_Level2:Unit := exMinute
var_Level2:Count := 15
|
|
612
|
How can I change the selection background color in the chart area
local var_Items as IItems
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:SelBackColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010106"),SToD("20010114"),nil,nil)
var_Items:[SelectItem,var_Items:FirstVisibleItem] := true
|
|
611
|
How can I change the selection background color in the chart area
local var_Items as IItems
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:SelBackColor := 0x1000000
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010106"),SToD("20010114"),nil,nil)
var_Items:[SelectItem,var_Items:FirstVisibleItem] := true
|
|
610
|
Is there any way to extend the selection on the chart
local var_Items as IItems
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010106"),SToD("20010114"),nil,nil)
var_Items:[SelectItem,var_Items:FirstVisibleItem] := true
|
|
609
|
How can I display the column's header using multiple lines
oDCOCX_Exontrol1:HeaderHeight := 128
oDCOCX_Exontrol1:HeaderSingleLine := false
IColumn{oDCOCX_Exontrol1:Columns:Add("This is just a column that should break the header.")}:Width := 32
oDCOCX_Exontrol1:Columns:Add("This is just another column that should break the header.")
|
|
608
|
How can change the width, transparency, style, visual appearance ( EBN), of the vertical bar that shows the current date-time
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 1048576
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%ss%>"
var_Level:Count := 15
var_Chart:MarkNowColor := 0x1000000
var_Chart:MarkNowWidth := 6
var_Chart:MarkNowTransparent := 50
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20080101"),SToD("20180101"),nil,nil)
|
|
607
|
How can change the width, style, visual appearance ( EBN), of the vertical bar that shows the current time
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 1048576
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%ss%>"
var_Level:Count := 15
var_Chart:MarkNowColor := 0x1000000
var_Chart:MarkNowWidth := 6
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20080101"),SToD("20180101"),nil,nil)
|
|
606
|
How can I show a vertical bar that indicates the current time
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 1048576
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%ss%>"
var_Level:Count := 15
var_Chart:MarkNowColor := RGB(0,0,255)
var_Chart:MarkNowWidth := 7
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20080101"),SToD("20180101"),nil,nil)
|
|
605
|
How can I show semi-transparent the vertical bar that indicates the current time
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 1048576
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%ss%>"
var_Level:Count := 15
var_Chart:MarkNowColor := RGB(0,0,255)
var_Chart:MarkNowWidth := 7
var_Chart:MarkNowTransparent := 50
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20080101"),SToD("20180101"),nil,nil)
|
|
604
|
Is there any way to highlight or show a vertical bar that indicates the current time, from 15 to 15 seconds
local var_Level as ILevel
oDCOCX_Exontrol1:Chart:LevelCount := 2
oDCOCX_Exontrol1:Chart:[Level,0]:Label := 1048576
var_Level := oDCOCX_Exontrol1:Chart:[Level,1]
var_Level:Label := "<%ss%>"
var_Level:Count := 15
oDCOCX_Exontrol1:Chart:MarkNowColor := RGB(0,0,255)
oDCOCX_Exontrol1:Chart:MarkNowCount := 15
oDCOCX_Exontrol1:Chart:MarkNowWidth := 3
|
|
603
|
Is there any way to highlight or show a vertical bar that indicates the current time, from minute to minute, hour and so on
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:UnitWidth := 48
var_Chart:LevelCount := 1
var_Chart:[Level,0]:Label := 1048576
var_Chart:MarkNowColor := RGB(255,0,0)
var_Chart:MarkNowUnit := exMinute
var_Chart:MarkNowWidth := var_Chart:UnitWidth
|
|
602
|
Is there any way to highlight or show a vertical bar that indicates the current time
local var_Level as ILevel
oDCOCX_Exontrol1:Chart:LevelCount := 2
oDCOCX_Exontrol1:Chart:[Level,0]:Label := 1048576
var_Level := oDCOCX_Exontrol1:Chart:[Level,1]
var_Level:Label := "<%ss%>"
var_Level:Count := 15
oDCOCX_Exontrol1:Chart:MarkNowColor := RGB(255,0,0)
|
|
601
|
Is there a way of making a bar flash on the screen
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Flashy task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarTransparent] := 80
|